<% lang = request.QueryString("lang") If lang = "it" Then banner = "top_it" copy = "Comunità di Sant'Egidio" titolo = "40° Anniversario" saluto = "" video = "Videonews di un anno" comunita = "La Comunità di Sant'Egidio" comunita1 = "Come è nata" comunita2 = "La preghiera" comunita3 = "Comunicare il Vangelo" comunita4 = "Comunità senza frontiere" comunita5 = "Amicizia con i poveri" comunita6 = "Il servizio alla pace" rassegna = "Rassegna Stampa" testi = "Testi" galleria = "Gallerie di immagini" testi2 = "Messaggi" End If If lang = "en" Then banner = "top_en" copy = "Community of Sant'Egidio" titolo = "40th Anniversary" saluto = "" video = "Videonews" comunita = "The Community of Sant'Egidio" comunita1 = "Its origin" comunita2 = "Prayer" comunita3 = "Communicating the Gospel" comunita4 = "Community without borders or walls" comunita5 = "Friendship with poor people" comunita6 = "Service to Peace: Making the World More Human" rassegna = "Press Review" testi = "Texts" galleria = "Images album" testi2 = "Messages" End If If lang = "cast" Then banner = "top_cast" copy = "Comunidad de Sant'Egidio" titolo = "40a Aniversario" saluto = "" video = "Videonews" comunita = "La Comunidad de Sant'Egidio" comunita1 = "Como nació" comunita2 = "La oración" comunita3 = "Comunicar el Evangelio" comunita4 = "Comunidad sin fronteras y muros" comunita5 = "Amistad con los pobres" comunita6 = "El servicio a la paz y a la humanización del mundo" rassegna = "Selección de prensa" testi = "Textos" galleria = "Galería de Imágenes" testi2 = "Mensajes" End If If lang = "fr" Then banner = "top_fr" copy = "Communauté de Sant'Egidio" titolo = "40ème anniversaire" saluto = "" video = "Les videonews d’une année" comunita = "La Communauté de Sant'Egidio" comunita1 = "Comment elle est née" comunita2 = "La prière" comunita3 = "Communiquer l'Évangile" comunita4 = "Communauté sans frontières et sans murs" comunita5 = "Amitié avec les pauvres" comunita6 = "Le service pour la paix et l'humanisation du monde" rassegna = "Revue de presse" testi = "Textes" galleria = "Galerie d’images" testi2 = "Messages" End If If lang = "de" Then banner = "top_de" copy = "Gemeinschaft Sant'Egidio" titolo = "40. Gründungstag" saluto = "" video = "Videos eines Jahres" comunita = "Die Gemeinschaft Sant'Egidio" comunita1 = "Entstehung" comunita2 = "Das Gebet" comunita3 = "Das Evangelium weitergeben" comunita4 = "Eine Gemeinschaft ohne Grenzen und Mauern" comunita5 = "Freundschaft mit den Armen" comunita6 = "Der Dienst am Frieden und an der Humanisierung der Welt" rassegna = "Pressespiegel" testi = "Texte" galleria = "Photoalben" testi2 = "Anzeigen" End If If lang = "pt" Then banner = "top_pt" copy = "Comunidade de Sant'Egidio" titolo = "Quadrigesimo Aniversario" saluto = "" video = "Videonews" comunita = "A Comunidade de Sant'Egidio" comunita1 = "Como nasceu" comunita2 = "A oração" comunita3 = "Comunicar o Evangelho" comunita4 = "Comunidade sem fronteiras e sem muros" comunita5 = "Amizade com os pobres" comunita6 = "O serviço à paz e à humanização do Mundo" rassegna = "Recortes de imprensa" testi = "Textos" galleria = "Galeria das imagens" testi2 = "Mensagens" End If If lang = "" Then lang = "it" banner = "top_it" copy = "Comunità di Sant'Egidio" titolo = "40° Anniversario" saluto = "" video = "Videonews di un anno" comunita = "La Comunità di Sant'Egidio" comunita1 = "Come è nata" comunita2 = "La preghiera" comunita3 = "Comunicare il Vangelo" comunita4 = "Comunità senza frontiere" comunita5 = "Amicizia con i poveri" comunita6 = "Il servizio alla pace" rassegna = "Rassegna Stampa" testi = "Testi" galleria = "Gallerie di immagini" testi2 = "Messaggi" End If %> "> <%=copy & " - " & titolo%>

<%=galleria%>



   
<%=comunita%>
<%=comunita1%>
<%=comunita2%>
<%=comunita3%>
<%=comunita4%>
<%=comunita5%>
<%=comunita6%>
<%=rassegna%>
<%=galleria%>
<%=video%>
<% 'Inizializziamo il Parser MS XML... Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False 'Carica il file XML strFile = Server.MapPath("../../../sezioni/elencovideo_" & lang & ".xml") objXML.Load (strFile) Set AllItems = objXML.selectNodes("//folder") For I = 0 to (AllItems.Length - 1) 'se ce' il nome della cartella crea una riga altrimenti no if AllItems(I).GetAttribute("id") <> "" then Response.Write("" & vbcrlf &"" & vbcrlf&"" & vbcrlf) else end if Set elencovideo = AllItems(I).selectNodes("video") 'ul 'Response.Write("
    " & vbcrlf) For J = 0 to (elencovideo.Length-1) Response.Write("
" & vbcrlf&"" & vbcrlf&"" & vbcrlf) Set Title = nothing Next Set elencovideo = Nothing Next %>
" & vbcrlf) Response.Write("

"&_ AllItems(I).GetAttribute("id") & "

" & vbcrlf &"
" & vbcrlf&_ "") Response.Write( vbcrlf&"
Copyright 1999-<%=year(Now) & " " & copy%>